home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -seriously_amiga- / shareware / graphics / sviewng / arexx-scripts / setsvoperator.rx < prev    next >
Text File  |  1997-12-01  |  901b  |  52 lines
  1. /*
  2.    $VER: SetSVOperator.rx V6.21 (17.3.97)
  3.    © 1993-97 by Andreas R. Kleinert
  4.  
  5.    This script demonstrates how to modify the default SVOperator
  6.    settings without using the GUI, but SViewNG's ARexxPort.
  7.  
  8.    The resulting changes will also appear on SViewNG's GUI,
  9.    if already open.
  10.  
  11. */
  12.  
  13. address command
  14.  
  15. SViewNG "-INSTALL_APPMENU=FALSE -INSTALL_APPICON=FALSE"
  16.  
  17. say ""
  18. say "ARexx: SViewNG has been started : Waiting a moment..."
  19.  
  20. wait 5
  21.  
  22. OPTIONS RESULTS
  23. SIGNAL ON ERROR
  24. SVNGPORT = 'SViewNG.rx'
  25. SVPORT   = 'SuperView.rx'
  26.  
  27. IF ~SHOW('P',SVPORT) THEN SVPORT = SVNGPORT
  28. IF ~SHOW('P',SVPORT) THEN DO
  29.   say "Could not locate ARexx port of SViewNG !"
  30.   CALL ErrorOut 0
  31. END
  32.  
  33. ADDRESS VALUE SVPORT
  34.  
  35. 'SVOPERATOR=HilbertDither256'
  36.  
  37. address command wait 5
  38.  
  39. 'SVOPERATOR=XOR'
  40.  
  41. CALL ErrorOut 0
  42.  
  43.  
  44. /* Errorout procedure ----------------------- */
  45.  
  46. ErrorOut:
  47.         PARSE ARG ExitCode
  48.  
  49.         EXIT ExitCode
  50.  
  51.   END
  52.